home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Demos / PowerFantasm 4.15 / Beginners guide / GUIDE EXAMPLES / EXAMPLE2.S < prev    next >
Encoding:
Text File  |  1996-06-21  |  721 b   |  19 lines
  1. *************************************************************************
  2. *Example program to add three numbers and print them in a window        *
  3. *************************************************************************
  4. EXAMPLE2:    BSR    INIT_CURSOR    *part of io_lib.s
  5.     LEA    WINDOW_TITLE,A0
  6.     BSR    OPEN_WINDOW    *PART OF IO_LIB.S
  7.     MOVE.L    A0,WINDOW_HANDLE    *OPEN_WINDOW RETURNS A HANDLE TO THE WINDOW
  8.     MOVE.L    #10,D0
  9.     ADD.W    #20,D0
  10.     ADD.W    #30,D0
  11.     BSR    PRINTNUM        *part of io_lib.s - PRINTS D0
  12.     MOVE.L    WINDOW_HANDLE,A0    *GET THE HANDLE FOR THE WINDOW
  13.     BSR    CLOSE_WINDOW    *CLOSE THE WINDOW
  14.     RTS
  15.     INCLUDE    IO_LIB.S
  16. ****VARIABLES
  17. WINDOW_TITLE:    DC.B    "EXAMPLE2",0
  18. WINDOW_HANDLE:    DS.L    1
  19. ************************END OF EXAMPLE2********************